home *** CD-ROM | disk | FTP | other *** search
/ Remix Doll 3: Dirty Sally / Remix Doll 3: Dirty Sally.iso / drtyslly.exe / SHARED.DXR / 04976_TTxtDim.ls < prev    next >
Encoding:
Text File  |  1995-02-11  |  544 b   |  29 lines
  1. property fDim
  2.  
  3. on birth me
  4.   mITxtDim(me)
  5.   return me
  6. end
  7.  
  8. on mITxtDim me
  9.   set fDim to EMPTY
  10. end
  11.  
  12. on mStHorizItems me, vVertLoc, vItemStr
  13.   put delBgnEndQuote(vItemStr) into line vVertLoc of fDim
  14. end
  15.  
  16. on mGtHorizItems me, vVertLoc
  17.   return line vVertLoc of fDim
  18. end
  19.  
  20. on mStVal me, vHorizLoc, vVertLoc, vVal
  21.   set aHorizItems to mGtHorizItems(me, vVertLoc)
  22.   put vVal into item vHorizLoc of aHorizItems
  23.   mStHorizItems(me, vVertLoc, aHorizItems)
  24. end
  25.  
  26. on mGtVal me, vHorizLoc, vVertLoc
  27.   return item vHorizLoc of mGtHorizItems(me, vVertLoc)
  28. end
  29.